home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / New Stuffed Files / MacMoney Demo 2.sit / MacMoney Demo Stack / card_3959.txt < prev    next >
Encoding:
Text File  |  1988-08-02  |  3.8 KB  |  163 lines
  1. -- card: 3959 from stack: in
  2. -- bmap block id: 6684
  3. -- flags: 4000
  4. -- background id: 3638
  5. -- name: Opening
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menuBar
  9.   hide message box
  10.   set hilite of card button "highlights" to true
  11.   set hilite of card button "highlights" to false
  12.   set hilite of card button "highlights" to true
  13.   set hilite of card button "highlights" to false
  14.   set hilite of card button "highlights" to true
  15.   set hilite of card button "highlights" to false
  16.   set hilite of card button "highlights" to true
  17.   set hilite of card button "highlights" to false
  18.   set hilite of card button "highlights" to true
  19.   set hilite of card button "highlights" to false
  20.   set hilite of card button "highlights" to true
  21.   set hilite of card button "highlights" to false
  22.   set hilite of card button "highlights" to true
  23.   set hilite of card button "highlights" to false
  24.   set hilite of card button "highlights" to true
  25.   set hilite of card button "highlights" to false
  26.   set hilite of card button "highlights" to true
  27.   set hilite of card button "highlights" to false
  28. end openCard
  29.  
  30. on idle
  31.   set hilite of card button "intro" to true
  32.   set hilite of card button "new button" to true
  33.   set hilite of card button "intro" to false
  34.   set hilite of card button "new button" to false
  35. end idle
  36.  
  37.  
  38.  
  39. -- part 1 (field)
  40. -- low flags: 01
  41. -- high flags: 0001
  42. -- rect: left=102 top=72 right=244 bottom=418
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 3
  47. -- text size: 12
  48. -- style flags: 256
  49. -- line height: 16
  50. -- part name: Address
  51.  
  52.  
  53. -- part 4 (button)
  54. -- low flags: 00
  55. -- high flags: A003
  56. -- rect: left=125 top=256 right=283 bottom=236
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Main Menu
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   visual effect iris open slowly
  68.   go to card "Main Menu"
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 6 (button)
  74. -- low flags: 00
  75. -- high flags: A003
  76. -- rect: left=287 top=256 right=283 bottom=398
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Credits
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   visual effect iris close slowly
  88.   go to card "Introduction"
  89. end mouseup
  90.  
  91.  
  92. -- part 9 (button)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=260 top=265 right=286 bottom=295
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 32650 / 32650
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: New Button
  104. ----- HyperTalk script -----
  105. on mouseStillDown
  106.   set hilite of card button "credits" to true
  107.   beep
  108.   set hilite of card button "credits" to false
  109. end mouseStillDown
  110.  
  111.  
  112.  
  113. -- part 10 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=228 top=265 right=286 bottom=262
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 1016 / 1016
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: intro
  125. ----- HyperTalk script -----
  126. on mouseStillDown
  127.   set hilite of card button "main menu" to true
  128.   beep
  129.   set hilite of card button "main menu" to false
  130. end mouseStillDown
  131.  
  132.  
  133.  
  134. -- part 11 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=138 top=90 right=231 bottom=383
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Highlights
  146.  
  147.  
  148. -- part contents for card part 1
  149. ----- text -----
  150.  
  151. Survivor Software Ltd.
  152. 11222 La Cienega Blvd., Suite 450
  153. Inglewood, CA  90304
  154.  
  155. ACCOUNTING
  156. &
  157. FINANCIAL PLANNING
  158. for
  159. THE MACINTOSH
  160.  
  161. -- part contents for card part 3
  162. ----- text -----
  163. click mouse